﻿Public Class ComentarioNegocio

    Function insertarComentario(ByVal a As Integer, ByVal b As Integer, ByVal c As String)

        Dim modelo As New Comentario()

        modelo.idInmueble = a
        modelo.idEstudiante = b
        modelo.Contenido = c

        Dim dao As New ComentarioDAO
        Try
            Return dao.insertar(modelo)
        Catch ex As Exception
            Throw ex
        End Try

    End Function

    Public Function obtener(ByVal idComentario As Integer) As Comentario
        Dim dao As New ComentarioDAO
        Return dao.obtener(idComentario)
    End Function

    Public Function listar() As Collection
        Dim dao As New ReservaDAO
        Return dao.listar()
    End Function

    Public Sub eliminar(ByVal idComentario As Integer)
        Dim dao As New ComentarioDAO
        dao.eliminar(idComentario)
    End Sub
End Class
